home *** CD-ROM | disk | FTP | other *** search
/ Mac Format 1994 October / Macformat17.cdr / Shareware City / Sound / juno-librarian-108 / JUNO Librarian 1.0.8 / Sample Scripts / 37 Change CHORUS < prev    next >
Text File  |  1994-07-11  |  364b  |  15 lines
  1. tell application "JUNO Librarian"
  2.     activate -- if needed
  3.     set x to Parameter 16 of Window "Sample"
  4.     set y to (round (x ÷ 32) rounding down)
  5.     set y to y * 32
  6.     set z to x - y -- TRI, PWM, DCO range
  7.     
  8.     -- select 1 of 3
  9.     set x to z + 96 -- CHORUS OFF
  10.     --    set x to z + 64 -- CHORUS 1
  11.     --    set x to z + 0 -- CHORUS 2
  12.     
  13.     copy x to Parameter 16 of Window "Sample"
  14. end tell
  15.